home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 003 / _armbob / !ArmBob_progs_h_string_mid < prev    next >
Encoding:
Text File  |  1994-06-06  |  285 b   |  15 lines
  1. /* GCW 02/03/94 */
  2. /* get substring of s at f-th character of length l */
  3. mid(s,f,l)  
  4. {
  5.     local len,r,i;
  6.     len = sizeof(s) - f;
  7.     if (l > len)
  8.         l = len;
  9.     if (l <= 0) return "";
  10.     r = newstring(l);
  11.     for (i = 0; --l >= 0; )
  12.         r[i++] = s[f++];
  13.     return r;
  14. }
  15.